home *** CD-ROM | disk | FTP | other *** search
/ MACD 5 / MACD 5.bin / workbench / dir / mtool / install < prev    next >
Encoding:
Text File  |  1994-04-10  |  33.4 KB  |  1,321 lines

  1. (set ver (/ (getversion) 65536))
  2.  
  3. (set locale
  4.  (askchoice
  5.   (prompt  "Select the prefered language.")
  6.   (help    "")
  7.   (choices "Dansk" "Deutsch" "English" "Español" "Français" "Svenska" "Italiano")
  8.   (default 2)
  9.  )
  10. )
  11.  
  12. (if (= locale 0)
  13.  (
  14.  (message "\n IMPORTANT NOTE:\n\n"
  15.           "Dette program installerer MTool og MI på Din Amiga. Hvis Du ikke forstår en af spørgsmålene der optræder under installationen, vælg 'hjælp...' knappen. Du vil så blive oplyst om det næste skridt og hvad det er godt for."
  16.  )
  17.  
  18.  (set progdest
  19.      (askdir
  20.          (prompt "Vær venlig og vælg en skuffe til MTool.")
  21.          (help "MTool og MI vil blive lagt over i dette directory.")
  22.          (default "SYS:Tools")
  23.          (newpath)
  24.      )
  25.  )
  26.  
  27.  (set @default-dest progdest)
  28.  
  29.  (copyfiles
  30.      (prompt "Kopierer MTool...")
  31.      (source "MTool")
  32.      (infos)
  33.      (dest progdest)
  34.  )
  35.  
  36.  (complete 20)
  37.  
  38.  (copyfiles
  39.      (prompt "Kopierer MTPrefs...")
  40.      (source "Prefs/MTool")
  41.      (infos)
  42.      (dest "SYS:Prefs")
  43.  )
  44.  
  45.  (complete 30)
  46.  
  47.  (copyfiles
  48.      (prompt "Kopierer MI...")
  49.      (source "MI")
  50.      (infos)
  51.      (dest progdest)
  52.  )
  53.  
  54.  (complete 45)
  55.  
  56.  (if (= (exists "ENVARC:MTool/MTool.Prefs") FALSE )
  57.  (
  58.      (makedir "ENVARC:MTool")
  59.      (makedir "ENV:MTool")
  60.  
  61.      (copyfiles
  62.          (prompt "Kopierer eksempel prefs fil...")
  63.          (source "Prefs/Env-Archive/MTool/MTool.Prefs")
  64.          (dest "ENVARC:MTool")
  65.      )
  66.      (copyfiles
  67.          (source "Prefs/Env-Archive/MTool/MTool.Prefs")
  68.          (dest "ENV:MTool")
  69.      )
  70.  )
  71.  )
  72.  
  73.  (complete 60)
  74.  
  75.  (if (> ver 37)
  76.      (if (exists "Locale:Catalogs/dansk")
  77.      (
  78.          (if (askbool (help "Hvis Du har valgt dansk som standard sprog og installeret filerne vil MTool og MI starte med en dansk brugerflade.") (prompt "Vil Du installere de danske locale filer?"))
  79.          (
  80.              (copyfiles
  81.                  (prompt "Installerer danske kataloger")
  82.                  (source "Catalogs/dansk")
  83.                  (pattern "#?")
  84.                  (dest "Locale:Catalogs/dansk")
  85.              )
  86.          )        
  87.          )
  88.      )
  89.      )
  90.  )
  91.  
  92.  (if (askbool (help "Helpfilen tilbyder hjælpe funktion mens MI kører (engelsk).") (prompt "Vil Du installere hjælpefilen for MI?"))
  93.  (
  94.      (copyfiles
  95.          (prompt  "Kopyierer hjælpefile:...")
  96.          (source  "MI_GB.help")
  97.          (dest    "ENVARC:")
  98.          (newname "MI.help")
  99.      )
  100.  )
  101.  )
  102.  
  103.  (complete 70)
  104.  
  105.  (if (askbool (help "Ikonerne bruges til at oprette ikoner for filer passende til deres type. Denne funktion er slået fra i den uregistrerede version.") (prompt "Vil Du installere ikonerne?"))
  106.  (
  107.      (set icondest
  108.          (askdir
  109.               (prompt "Vær venlig og vælg en skuffe til ikonerne.")
  110.               (help "Eksempel prefs filerne forventer ikonerne i standard skuffen.")
  111.               (default (tackon progdest "MToolIcons"))
  112.               (newpath)
  113.          )
  114.      )
  115.  
  116.      (if (askbool (help "MagicWB er en samling af baggrunds mønstre og ikoner, resulterende i en meget flot 8-farvet Workbench. Du kan installere ikoner specielt designed til MagicWB.") (prompt "Bruger Du 'MagicWB'?"))
  117.      (
  118.      (copyfiles
  119.          (prompt "Kopierer ikoner...")
  120.          (source "MToolIcons/MWB")
  121.          (pattern "(~MT)#?.info")
  122.          (dest icondest)
  123.      )
  124.      (copyfiles
  125.          (source "MToolIcons/MWB/MTool.info")
  126.          (dest progdest)
  127.      )
  128.      (copyfiles
  129.          (source "MToolIcons/MWB/MI.info")
  130.          (dest progdest)
  131.      )
  132.      (copyfiles
  133.          (source "MToolIcons/MWB/MTPrefs.info")
  134.          (dest "SYS:Prefs")
  135.          (newname "MTool.info")
  136.      )
  137.      )
  138.      (
  139.      (copyfiles
  140.          (prompt "Kopierer ikoner...")
  141.          (source "MToolIcons")
  142.          (pattern "#?.info")
  143.          (dest icondest)
  144.      )
  145.      )
  146.      )
  147.  )
  148.  )
  149.  
  150.  (complete 80)
  151.  
  152.  (if (askbool (help "Dokumentationen består af to AmigaGuide manualer og en historie fil.") (prompt "Vil Du installere dokumentationen?"))
  153.  (
  154.      (set docdest
  155.          (askdir
  156.               (prompt "Vær venlig og vælg en skuffe til dokumentationen.")
  157.               (help "Det er lige meget hvor Du putter den, sålænge Du kan finde den igen...")
  158.               (default (tackon progdest "Docs"))
  159.               (newpath)
  160.          )
  161.      )
  162.      (copyfiles
  163.          (prompt "Kopierer dokumentationen...")
  164.          (source "Docs")
  165.          (pattern "#?_DK.#?")
  166.          (infos)
  167.          (dest docdest)
  168.      )
  169.      (copyfiles
  170.          (prompt "Kopierer dokumentationen...")
  171.          (source "Docs")
  172.          (pattern "#?_GB.#?")
  173.          (infos)
  174.          (dest docdest)
  175.      )
  176.  )
  177.  )
  178.  
  179.  (complete 90)
  180.  
  181.  (if (askbool (help "DatMon er nyttig hex modus af MI, Fineline 11 bruges i MTool's info requester.") (prompt "Vil Du installere fontene?"))
  182.  (
  183.      (set fontdest
  184.          (askdir
  185.              (prompt "Vær venlig og vælg en skuffe til fontene.")
  186.              (help "Hvis Du ikke 'assign add'er en anden font skuffe skulle Du ikke røre ved denne standard indstilling.")
  187.              (default "Fonts:")
  188.              (newpath)
  189.          )
  190.      )
  191.      (copyfiles
  192.          (prompt "Kopierer fonte...")
  193.          (source "Fonts")
  194.          (dest fontdest)
  195.          (pattern "#?")
  196.      )
  197.  )
  198.  )
  199.  
  200.  (complete 99)
  201.  )
  202. )
  203.  
  204. (if (= locale 1)
  205.  (
  206.  (message "\n HINWEIS ZUR INSTALLATION VON MTOOL:\n\n"
  207.           "Dieses Programm installiert MTool und MI auf Ihrem System. Sollten Sie eine der während der Installation auftretenden Fragen nicht verstehen, können Sie jederzeit 'Hilfe...' anwählen. Sie erhalten dann genaue Auskunft, was der nächste Arbeitsschritt macht und wozu er gut ist."
  208.  )
  209.  
  210.  (set progdest
  211.      (askdir
  212.          (prompt "Bitte wählen Sie ein Verzeichnis für MTool aus.")
  213.          (help "In das gewählte Verzeichnis werden die Programme MTool und MI kopiert.")
  214.          (default "SYS:Tools")
  215.          (newpath)
  216.      )
  217.  )
  218.  
  219.  (set @default-dest progdest)
  220.  
  221.  (copyfiles
  222.      (prompt "Kopiere Hauptprogramm...")
  223.      (source "MTool")
  224.      (infos)
  225.      (dest progdest)
  226.  )
  227.  
  228.  (complete 20)
  229.  
  230.  (copyfiles
  231.      (prompt "Kopiere den Voreinstellungseditor zu MTool")
  232.      (source "Prefs/MTool")
  233.      (infos)
  234.      (dest "SYS:Prefs")
  235.  )
  236.  
  237.  (complete 30)
  238.  
  239.  (copyfiles
  240.      (prompt "Kopiere den Textanzeiger MI")
  241.      (source "MI")
  242.      (infos)
  243.      (dest progdest)
  244.  )
  245.  
  246.  (complete 45)
  247.  
  248.  (if (= (exists "ENVARC:MTool/MTool.Prefs") FALSE )
  249.  (
  250.      (makedir "ENVARC:MTool")
  251.      (makedir "ENV:MTool")
  252.  
  253.      (copyfiles
  254.          (prompt "Kopiere Prefsdatei zu MTool")
  255.          (source "Prefs/Env-Archive/MTool/MTool_d.Prefs")
  256.          (dest "ENVARC:MTool")
  257.          (newname "MTool.prefs")
  258.      )
  259.      (copyfiles
  260.          (source "Prefs/Env-Archive/MTool/MTool_d.Prefs")
  261.          (dest "ENV:MTool")
  262.          (newname "MTool.prefs")
  263.      )
  264.  )
  265.  )
  266.  
  267.  (complete 60)
  268.  
  269.  (if (> ver 37)
  270.      (if (exists "Locale:Catalogs/deutsch")
  271.      (
  272.          (if (askbool (help "Wenn Sie als Landessprache deutsch gewählt haben und diese Dateien installieren lassen, werden MTool und MI eine deutsche Benutzeroberfläche anzeigen.") (prompt "Soll die deutsche Sprachanpassung installiert werden?"))
  273.          (
  274.              (copyfiles
  275.                  (prompt "Installiere deutsche Catalogs")
  276.                  (source "Catalogs/deutsch")
  277.                  (pattern "#?")
  278.                  (dest "Locale:Catalogs/deutsch")
  279.              )
  280.          )        
  281.          )
  282.      )
  283.      )
  284.  )
  285.  
  286.  (if (askbool (help "Die Hilfsdatei bietet Ihnen eine deutschsprachige Hilfsfunktion in MI.") (prompt "Soll die Hilfsdatei zu MI kopiert werden?"))
  287.  (
  288.      (copyfiles
  289.          (prompt  "Kopiere Hilfsdatei zu MI nach ENVARC:...")
  290.          (source  "MI_D.help")
  291.          (dest    "ENVARC:")
  292.          (newname "MI.help")
  293.      )
  294.  )
  295.  )
  296.  
  297.  (complete 70)
  298.  
  299.  (if (askbool (help "Die Icons werden von MTool benutzt, um Dateien gemäß ihrem Dateityp mit Icons versehen zu können. Diese Fähigkeit ist in der unregistrierten Version gesperrt.") (prompt "Sollen die Icons installiert werden?"))
  300.  (
  301.      (set icondest
  302.          (askdir
  303.               (prompt "Bitte wählen Sie ein Verzeichnis für die Icons aus.")
  304.               (help "Die mitgelieferte Voreinstellungsdatei erwartet die Icons im vorgegebenen Verzeichnis")
  305.               (default (tackon progdest "MToolIcons"))
  306.               (newpath)
  307.          )
  308.      )
  309.  
  310.      (if (askbool (help "MagicWB ist eine Sammlung von Hintergrundgraphiken und Icons, die eine sehr schöne 8-farbige Workbench ergeben. Sie können dazu passende Icons installieren lassen") (prompt "Benutzen Sie 'MagicWB'?"))
  311.      (
  312.      (copyfiles
  313.          (prompt "Kopiere Icons...")
  314.          (source "MToolIcons/MWB")
  315.          (pattern "(~MT)#?.info")
  316.          (dest icondest)
  317.      )
  318.      (copyfiles
  319.          (source "MToolIcons/MWB/MTool.info")
  320.          (dest progdest)
  321.      )
  322.      (copyfiles
  323.          (source "MToolIcons/MWB/MI.info")
  324.          (dest progdest)
  325.      )
  326.      (copyfiles
  327.          (source "MToolIcons/MWB/MTPrefs.info")
  328.          (dest "SYS:Prefs")
  329.          (newname "MTool.info")
  330.      )
  331.      )
  332.      (
  333.      (copyfiles
  334.          (prompt "Kopiere Icons...")
  335.          (source "MToolIcons")
  336.          (pattern "#?.info")
  337.          (dest icondest)
  338.      )
  339.      )
  340.      )
  341.  )
  342.  )
  343.  
  344.  (complete 80)
  345.  
  346.  (if (askbool (help "Die Anleitungen umfassen zwei AmigaGuide-Dokumente und eine Änderungsdatei.") (prompt "Sollen die Anleitungen kopiert werden?"))
  347.  (
  348.      (set docdest
  349.          (askdir
  350.               (prompt "Bitte wählen Sie ein Verzeichnis für die Anleitungen aus.")
  351.               (help "Es ist egal, wo Sie die Anleitungen hinstecken, Sie sollten Sie bloß wiederfinden...")
  352.               (default (tackon progdest "Anleitungen"))
  353.               (newpath)
  354.          )
  355.      )
  356.      (copyfiles
  357.          (prompt "Kopiere Anleitungen...")
  358.          (source "Docs")
  359.          (pattern "#?_D.#?")
  360.          (infos)
  361.          (dest docdest)
  362.      )
  363.  )
  364.  )
  365.  
  366.  (complete 90)
  367.  
  368.  (if (askbool (help "Die Schrift DatMon ist im Hex-Modus von MI recht nützlich, Fineline 11 wird im Aboutrequester von MTool verwendet.") (prompt "Sollen die Schriften kopiert werden?"))
  369.  (
  370.      (set fontdest
  371.          (askdir
  372.              (prompt "Bitte wählen Sie ein Verzeichnis für die Schriften aus.")
  373.              (help "Wenn Sie kein Verzeichnis zum Fonts:-Verzeichnis zuge'add'et haben, sollten Sie die Einstellung bei Fonts: belassen.")
  374.              (default "Fonts:")
  375.              (newpath)
  376.          )
  377.      )
  378.      (copyfiles
  379.          (prompt "Kopiere Zeichensätze...")
  380.          (source "Fonts")
  381.          (dest fontdest)
  382.          (pattern "#?")
  383.      )
  384.  )
  385.  )
  386.  
  387.  (complete 99)
  388.  )
  389. )
  390.  
  391. (if (= locale 2)
  392.  (
  393.  (message "\n IMPORTANT NOTE:\n\n"
  394.           "This programm installs MTool and MI on your Amiga. If you don't understand one of the questions that show up during installation, please select the 'help...' button. You will be instructed then about the next step and what it's good for."
  395.  )
  396.  
  397.  (set progdest
  398.      (askdir
  399.          (prompt "Please select a drawer for MTool.")
  400.          (help "MTool and MI will be copied to this drawer.")
  401.          (default "SYS:Tools")
  402.          (newpath)
  403.      )
  404.  )
  405.  
  406.  (set @default-dest progdest)
  407.  
  408.  (copyfiles
  409.      (prompt "Copying MTool...")
  410.      (source "MTool")
  411.      (infos)
  412.      (dest progdest)
  413.  )
  414.  
  415.  (complete 20)
  416.  
  417.  (copyfiles
  418.      (prompt "Copying MTPrefs...")
  419.      (source "Prefs/MTool")
  420.      (infos)
  421.      (dest "SYS:Prefs")
  422.  )
  423.  
  424.  (complete 30)
  425.  
  426.  (copyfiles
  427.      (prompt "Copying MI...")
  428.      (source "MI")
  429.      (infos)
  430.      (dest progdest)
  431.  )
  432.  
  433.  (complete 45)
  434.  
  435.  (if (= (exists "ENVARC:MTool/MTool.Prefs") FALSE )
  436.  (
  437.      (makedir "ENVARC:MTool")
  438.      (makedir "ENV:MTool")
  439.  
  440.      (copyfiles
  441.          (prompt "Copying example prefs file...")
  442.          (source "Prefs/Env-Archive/MTool/MTool.Prefs")
  443.          (dest "ENVARC:MTool")
  444.      )
  445.      (copyfiles
  446.          (source "Prefs/Env-Archive/MTool/MTool.Prefs")
  447.          (dest "ENV:MTool")
  448.      )
  449.  )
  450.  )
  451.  
  452.  (complete 60)
  453.  
  454.  (if (askbool (help "The helpfile offers a help function while running MI.") (prompt "Do you want to install the helpfile for MI?"))
  455.  (
  456.      (copyfiles
  457.          (prompt  "Copying helpfile:...")
  458.          (source  "MI_GB.help")
  459.          (dest    "ENVARC:")
  460.          (newname "MI.help")
  461.      )
  462.  )
  463.  )
  464.  
  465.  (complete 70)
  466.  
  467.  (if (askbool (help "The icons will be used in MTool to create icons for files according to their type. This feature is disabled in the unregistered version.") (prompt "Do you want to install the icons?"))
  468.  (
  469.      (set icondest
  470.          (askdir
  471.               (prompt "Please select a drawer for the icons.")
  472.               (help "The example prefs file expects the icons in the default drawer.")
  473.               (default (tackon progdest "MToolIcons"))
  474.               (newpath)
  475.          )
  476.      )
  477.  
  478.      (if (askbool (help "MagicWB is a collection of background patterns and icons, providing a very nice 8-coloured Workbench. You can install icons especially designed for MagicWB.") (prompt "Do you use 'MagicWB'?"))
  479.      (
  480.      (copyfiles
  481.          (prompt "Copying icons...")
  482.          (source "MToolIcons/MWB")
  483.          (pattern "(~MT)#?.info")
  484.          (dest icondest)
  485.      )
  486.      (copyfiles
  487.          (source "MToolIcons/MWB/MTool.info")
  488.          (dest progdest)
  489.      )
  490.      (copyfiles
  491.          (source "MToolIcons/MWB/MI.info")
  492.          (dest progdest)
  493.      )
  494.      (copyfiles
  495.          (source "MToolIcons/MWB/MTPrefs.info")
  496.          (dest "SYS:Prefs")
  497.          (newname "MTool.info")
  498.      )
  499.      )
  500.      (
  501.      (copyfiles
  502.          (prompt "Copying icons...")
  503.          (source "MToolIcons")
  504.          (pattern "#?.info")
  505.          (dest icondest)
  506.      )
  507.      )
  508.      )
  509.  )
  510.  )
  511.  
  512.  (complete 80)
  513.  
  514.  (if (askbool (help "The docs iclude two AmigaGuide documents and a history file.") (prompt "Do you want to install the docs?"))
  515.  (
  516.      (set docdest
  517.          (askdir
  518.               (prompt "Please select a drawer for the docs.")
  519.               (help "It doesn't matter where you put the docs, if you manage to refind them...")
  520.               (default (tackon progdest "Docs"))
  521.               (newpath)
  522.          )
  523.      )
  524.      (copyfiles
  525.          (prompt "Copying Docs...")
  526.          (source "Docs")
  527.          (pattern "#?_GB.#?")
  528.          (infos)
  529.          (dest docdest)
  530.      )
  531.  )
  532.  )
  533.  
  534.  (complete 90)
  535.  
  536.  (if (askbool (help "DatMon is useful in hex mode of MI, Fineline 11 is used in MTools about requester.") (prompt "Do you want to install the fonts?"))
  537.  (
  538.      (set fontdest
  539.          (askdir
  540.              (prompt "Please select a drawer for the fonts.")
  541.              (help "If you didn't 'assign add' another font drawer, you shouldn't tuch this default setting.")
  542.              (default "Fonts:")
  543.              (newpath)
  544.          )
  545.      )
  546.      (copyfiles
  547.          (prompt "Copying fonts...")
  548.          (source "Fonts")
  549.          (dest fontdest)
  550.          (pattern "#?")
  551.      )
  552.  )
  553.  )
  554.  
  555.  (complete 99)
  556.  )
  557. )
  558.  
  559. (if (= locale 3)
  560.  (
  561.  (message "\n IMPORTANT NOTE:\n\n"
  562.           "This programm installs MTool and MI on your Amiga. If you don't understand one of the questions that show up during installation, please select the 'help...' button. You will be instructed then about the next step and what it's good for."
  563.  )
  564.  
  565.  (set progdest
  566.      (askdir
  567.          (prompt "Please select a drawer for MTool.")
  568.          (help "MTool and MI will be copied to this drawer.")
  569.          (default "SYS:Tools")
  570.          (newpath)
  571.      )
  572.  )
  573.  
  574.  (set @default-dest progdest)
  575.  
  576.  (copyfiles
  577.      (prompt "Copying MTool...")
  578.      (source "MTool")
  579.      (infos)
  580.      (dest progdest)
  581.  )
  582.  
  583.  (complete 20)
  584.  
  585.  (copyfiles
  586.      (prompt "Copying MTPrefs...")
  587.      (source "Prefs/MTool")
  588.      (infos)
  589.      (dest "SYS:Prefs")
  590.  )
  591.  
  592.  (complete 30)
  593.  
  594.  (copyfiles
  595.      (prompt "Copying MI...")
  596.      (source "MI")
  597.      (infos)
  598.      (dest progdest)
  599.  )
  600.  
  601.  (complete 45)
  602.  
  603.  (if (= (exists "ENVARC:MTool/MTool.Prefs") FALSE )
  604.  (
  605.      (makedir "ENVARC:MTool")
  606.      (makedir "ENV:MTool")
  607.  
  608.      (copyfiles
  609.          (prompt "Copying example prefs file...")
  610.          (source "Prefs/Env-Archive/MTool/MTool.Prefs")
  611.          (dest "ENVARC:MTool")
  612.      )
  613.      (copyfiles
  614.          (source "Prefs/Env-Archive/MTool/MTool.Prefs")
  615.          (dest "ENV:MTool")
  616.      )
  617.  )
  618.  )
  619.  
  620.  (complete 60)
  621.  
  622.  (if (> ver 37)
  623.      (if (exists "Locale:Catalogs/español")
  624.      (
  625.          (if (askbool (help "If you selected español as default language and install these files, MTool and MI will show up with a spanish user interface.") (prompt "Do you want to install the spanish locale files?"))
  626.          (
  627.              (copyfiles
  628.                  (prompt "Installing Spanish Catalogs")
  629.                  (source "Catalogs/español")
  630.                  (pattern "#?")
  631.                  (dest "Locale:Catalogs/español")
  632.              )
  633.          )        
  634.          )
  635.      )
  636.      )
  637.  )
  638.  
  639.  (if (askbool (help "The helpfile offers a help function while running MI.") (prompt "Do you want to install the helpfile for MI?"))
  640.  (
  641.      (copyfiles
  642.          (prompt  "Copying helpfile:...")
  643.          (source  "MI_GB.help")
  644.          (dest    "ENVARC:")
  645.          (newname "MI.help")
  646.      )
  647.  )
  648.  )
  649.  
  650.  (complete 70)
  651.  
  652.  (if (askbool (help "The icons will be used in MTool to create icons for files according to their type. This feature is disabled in the unregistered version.") (prompt "Do you want to install the icons?"))
  653.  (
  654.      (set icondest
  655.          (askdir
  656.               (prompt "Please select a drawer for the icons.")
  657.               (help "The example prefs file expects the icons in the default drawer.")
  658.               (default (tackon progdest "MToolIcons"))
  659.               (newpath)
  660.          )
  661.      )
  662.  
  663.      (if (askbool (help "MagicWB is a collection of background patterns and icons, providing a very nice 8-coloured Workbench. You can install icons especially designed for MagicWB.") (prompt "Do you use 'MagicWB'?"))
  664.      (
  665.      (copyfiles
  666.          (prompt "Copying icons...")
  667.          (source "MToolIcons/MWB")
  668.          (pattern "(~MT)#?.info")
  669.          (dest icondest)
  670.      )
  671.      (copyfiles
  672.          (source "MToolIcons/MWB/MTool.info")
  673.          (dest progdest)
  674.      )
  675.      (copyfiles
  676.          (source "MToolIcons/MWB/MI.info")
  677.          (dest progdest)
  678.      )
  679.      (copyfiles
  680.          (source "MToolIcons/MWB/MTPrefs.info")
  681.          (dest "SYS:Prefs")
  682.          (newname "MTool.info")
  683.      )
  684.      )
  685.      (
  686.      (copyfiles
  687.          (prompt "Copying icons...")
  688.          (source "MToolIcons")
  689.          (pattern "#?.info")
  690.          (dest icondest)
  691.      )
  692.      )
  693.      )
  694.  )
  695.  )
  696.  
  697.  (complete 80)
  698.  
  699.  (if (askbool (help "The docs iclude two AmigaGuide documents and a history file.") (prompt "Do you want to install the docs?"))
  700.  (
  701.      (set docdest
  702.          (askdir
  703.               (prompt "Please select a drawer for the docs.")
  704.               (help "It doesn't matter where you put the docs, if you manage to refind them...")
  705.               (default (tackon progdest "Docs"))
  706.               (newpath)
  707.          )
  708.      )
  709.      (copyfiles
  710.          (prompt "Copying Docs...")
  711.          (source "Docs")
  712.          (pattern "#?_GB.#?")
  713.          (infos)
  714.          (dest docdest)
  715.      )
  716.      (copyfiles
  717.          (prompt "Copying Docs...")
  718.          (source "Docs")
  719.          (pattern "#?_E.#?")
  720.          (infos)
  721.          (dest docdest)
  722.      )
  723.  )
  724.  )
  725.  
  726.  (complete 90)
  727.  
  728.  (if (askbool (help "DatMon is useful in hex mode of MI, Fineline 11 is used in MTools about requester.") (prompt "Do you want to install the fonts?"))
  729.  (
  730.      (set fontdest
  731.          (askdir
  732.              (prompt "Please select a drawer for the fonts.")
  733.              (help "If you didn't 'assign add' another font drawer, you shouldn't tuch this default setting.")
  734.              (default "Fonts:")
  735.              (newpath)
  736.          )
  737.      )
  738.      (copyfiles
  739.          (prompt "Copying fonts...")
  740.          (source "Fonts")
  741.          (dest fontdest)
  742.          (pattern "#?")
  743.      )
  744.  )
  745.  )
  746.  
  747.  (complete 99)
  748.  )
  749. )
  750.  
  751. (if (= locale 4)
  752.  (
  753.  (message "\n IMPORTANT NOTE:\n\n"
  754.           "This programm installs MTool and MI on your Amiga. If you don't understand one of the questions that show up during installation, please select the 'help...' button. You will be instructed then about the next step and what it's good for."
  755.  )
  756.  
  757.  (set progdest
  758.      (askdir
  759.          (prompt "Please select a drawer for MTool.")
  760.          (help "MTool and MI will be copied to this drawer.")
  761.          (default "SYS:Tools")
  762.          (newpath)
  763.      )
  764.  )
  765.  
  766.  (set @default-dest progdest)
  767.  
  768.  (copyfiles
  769.      (prompt "Copying MTool...")
  770.      (source "MTool")
  771.      (infos)
  772.      (dest progdest)
  773.  )
  774.  
  775.  (complete 20)
  776.  
  777.  (copyfiles
  778.      (prompt "Copying MTPrefs...")
  779.      (source "Prefs/MTool")
  780.      (infos)
  781.      (dest "SYS:Prefs")
  782.  )
  783.  
  784.  (complete 30)
  785.  
  786.  (copyfiles
  787.      (prompt "Copying MI...")
  788.      (source "MI")
  789.      (infos)
  790.      (dest progdest)
  791.  )
  792.  
  793.  (complete 45)
  794.  
  795.  (if (= (exists "ENVARC:MTool/MTool.Prefs") FALSE )
  796.  (
  797.      (makedir "ENVARC:MTool")
  798.      (makedir "ENV:MTool")
  799.  
  800.      (copyfiles
  801.          (prompt "Copying example prefs file...")
  802.          (source "Prefs/Env-Archive/MTool/MTool.Prefs")
  803.          (dest "ENVARC:MTool")
  804.      )
  805.      (copyfiles
  806.          (source "Prefs/Env-Archive/MTool/MTool.Prefs")
  807.          (dest "ENV:MTool")
  808.      )
  809.  )
  810.  )
  811.  
  812.  (complete 60)
  813.  
  814.  (if (> ver 37)
  815.      (if (exists "Locale:Catalogs/français")
  816.      (
  817.          (if (askbool (help "If you selected français as default language and install these files, MTool and MI will show up with a French user interface.") (prompt "Do you want to install the French locale files?"))
  818.          (
  819.              (copyfiles
  820.                  (prompt "Installing French Catalogs")
  821.                  (source "Catalogs/français")
  822.                  (pattern "#?")
  823.                  (dest "Locale:Catalogs/français")
  824.              )
  825.          )        
  826.          )
  827.      )
  828.      )
  829.  )
  830.  
  831.  (if (askbool (help "The helpfile offers a help function while running MI.") (prompt "Do you want to install the helpfile for MI?"))
  832.  (
  833.      (copyfiles
  834.          (prompt  "Copying helpfile:...")
  835.          (source  "MI_GB.help")
  836.          (dest    "ENVARC:")
  837.          (newname "MI.help")
  838.      )
  839.  )
  840.  )
  841.  
  842.  (complete 70)
  843.  
  844.  (if (askbool (help "The icons will be used in MTool to create icons for files according to their type. This feature is disabled in the unregistered version.") (prompt "Do you want to install the icons?"))
  845.  (
  846.      (set icondest
  847.          (askdir
  848.               (prompt "Please select a drawer for the icons.")
  849.               (help "The example prefs file expects the icons in the default drawer.")
  850.               (default (tackon progdest "MToolIcons"))
  851.               (newpath)
  852.          )
  853.      )
  854.  
  855.      (if (askbool (help "MagicWB is a collection of background patterns and icons, providing a very nice 8-coloured Workbench. You can install icons especially designed for MagicWB.") (prompt "Do you use 'MagicWB'?"))
  856.      (
  857.      (copyfiles
  858.          (prompt "Copying icons...")
  859.          (source "MToolIcons/MWB")
  860.          (pattern "(~MT)#?.info")
  861.          (dest icondest)
  862.      )
  863.      (copyfiles
  864.          (source "MToolIcons/MWB/MTool.info")
  865.          (dest progdest)
  866.      )
  867.      (copyfiles
  868.          (source "MToolIcons/MWB/MI.info")
  869.          (dest progdest)
  870.      )
  871.      (copyfiles
  872.          (source "MToolIcons/MWB/MTPrefs.info")
  873.          (dest "SYS:Prefs")
  874.          (newname "MTool.info")
  875.      )
  876.      )
  877.      (
  878.      (copyfiles
  879.          (prompt "Copying icons...")
  880.          (source "MToolIcons")
  881.          (pattern "#?.info")
  882.          (dest icondest)
  883.      )
  884.      )
  885.      )
  886.  )
  887.  )
  888.  
  889.  (complete 80)
  890.  
  891.  (if (askbool (help "The docs iclude two AmigaGuide documents and a history file.") (prompt "Do you want to install the docs?"))
  892.  (
  893.      (set docdest
  894.          (askdir
  895.               (prompt "Please select a drawer for the docs.")
  896.               (help "It doesn't matter where you put the docs, if you manage to refind them...")
  897.               (default (tackon progdest "Docs"))
  898.               (newpath)
  899.          )
  900.      )
  901.      (copyfiles
  902.          (prompt "Copying Docs...")
  903.          (source "Docs")
  904.          (pattern "#?_GB.#?")
  905.          (infos)
  906.          (dest docdest)
  907.      )
  908.  )
  909.  )
  910.  
  911.  (complete 90)
  912.  
  913.  (if (askbool (help "DatMon is useful in hex mode of MI, Fineline 11 is used in MTools about requester.") (prompt "Do you want to install the fonts?"))
  914.  (
  915.      (set fontdest
  916.          (askdir
  917.              (prompt "Please select a drawer for the fonts.")
  918.              (help "If you didn't 'assign add' another font drawer, you shouldn't tuch this default setting.")
  919.              (default "Fonts:")
  920.              (newpath)
  921.          )
  922.      )
  923.      (copyfiles
  924.          (prompt "Copying fonts...")
  925.          (source "Fonts")
  926.          (dest fontdest)
  927.          (pattern "#?")
  928.      )
  929.  )
  930.  )
  931.  
  932.  (complete 99)
  933.  )
  934. )
  935.  
  936. (if (= locale 5)
  937.  (
  938.  (message "\n IMPORTANT NOTE:\n\n"
  939.           "This programm installs MTool and MI on your Amiga. If you don't understand one of the questions that show up during installation, please select the 'help...' button. You will be instructed then about the next step and what it's good for."
  940.  )
  941.  
  942.  (set progdest
  943.      (askdir
  944.          (prompt "Please select a drawer for MTool.")
  945.          (help "MTool and MI will be copied to this drawer.")
  946.          (default "SYS:Tools")
  947.          (newpath)
  948.      )
  949.  )
  950.  
  951.  (set @default-dest progdest)
  952.  
  953.  (copyfiles
  954.      (prompt "Copying MTool...")
  955.      (source "MTool")
  956.      (infos)
  957.      (dest progdest)
  958.  )
  959.  
  960.  (complete 20)
  961.  
  962.  (copyfiles
  963.      (prompt "Copying MTPrefs...")
  964.      (source "Prefs/MTool")
  965.      (infos)
  966.      (dest "SYS:Prefs")
  967.  )
  968.  
  969.  (complete 30)
  970.  
  971.  (copyfiles
  972.      (prompt "Copying MI...")
  973.      (source "MI")
  974.      (infos)
  975.      (dest progdest)
  976.  )
  977.  
  978.  (complete 45)
  979.  
  980.  (if (= (exists "ENVARC:MTool/MTool.Prefs") FALSE )
  981.  (
  982.      (makedir "ENVARC:MTool")
  983.      (makedir "ENV:MTool")
  984.  
  985.      (copyfiles
  986.          (prompt "Copying example prefs file...")
  987.          (source "Prefs/Env-Archive/MTool/MTool.Prefs")
  988.          (dest "ENVARC:MTool")
  989.      )
  990.      (copyfiles
  991.          (source "Prefs/Env-Archive/MTool/MTool.Prefs")
  992.          (dest "ENV:MTool")
  993.      )
  994.  )
  995.  )
  996.  
  997.  (complete 60)
  998.  
  999.  (if (> ver 37)
  1000.      (if (exists "Locale:Catalogs/svenska")
  1001.      (
  1002.          (if (askbool (help "If you selected svenska as default language and install these files, MTool and MI will show up with a Swedish user interface.") (prompt "Do you want to install the Swedish locale files?"))
  1003.          (
  1004.              (copyfiles
  1005.                  (prompt "Installing Swedish Catalogs")
  1006.                  (source "Catalogs/svenska")
  1007.                  (pattern "#?")
  1008.                  (dest "Locale:Catalogs/svenska")
  1009.              )
  1010.          )        
  1011.          )
  1012.      )
  1013.      )
  1014.  )
  1015.  
  1016.  (if (askbool (help "The helpfile offers a help function while running MI.") (prompt "Do you want to install the helpfile for MI?"))
  1017.  (
  1018.      (copyfiles
  1019.          (prompt  "Copying helpfile:...")
  1020.          (source  "MI_S.help")
  1021.          (dest    "ENVARC:")
  1022.          (newname "MI.help")
  1023.      )
  1024.  )
  1025.  )
  1026.  
  1027.  (complete 70)
  1028.  
  1029.  (if (askbool (help "The icons will be used in MTool to create icons for files according to their type. This feature is disabled in the unregistered version.") (prompt "Do you want to install the icons?"))
  1030.  (
  1031.      (set icondest
  1032.          (askdir
  1033.               (prompt "Please select a drawer for the icons.")
  1034.               (help "The example prefs file expects the icons in the default drawer.")
  1035.               (default (tackon progdest "MToolIcons"))
  1036.               (newpath)
  1037.          )
  1038.      )
  1039.  
  1040.      (if (askbool (help "MagicWB is a collection of background patterns and icons, providing a very nice 8-coloured Workbench. You can install icons especially designed for MagicWB.") (prompt "Do you use 'MagicWB'?"))
  1041.      (
  1042.      (copyfiles
  1043.          (prompt "Copying icons...")
  1044.          (source "MToolIcons/MWB")
  1045.          (pattern "(~MT)#?.info")
  1046.          (dest icondest)
  1047.      )
  1048.      (copyfiles
  1049.          (source "MToolIcons/MWB/MTool.info")
  1050.          (dest progdest)
  1051.      )
  1052.      (copyfiles
  1053.          (source "MToolIcons/MWB/MI.info")
  1054.          (dest progdest)
  1055.      )
  1056.      (copyfiles
  1057.          (source "MToolIcons/MWB/MTPrefs.info")
  1058.          (dest "SYS:Prefs")
  1059.          (newname "MTool.info")
  1060.      )
  1061.      )
  1062.      (
  1063.      (copyfiles
  1064.          (prompt "Copying icons...")
  1065.          (source "MToolIcons")
  1066.          (pattern "#?.info")
  1067.          (dest icondest)
  1068.      )
  1069.      )
  1070.      )
  1071.  )
  1072.  )
  1073.  
  1074.  (complete 80)
  1075.  
  1076.  (if (askbool (help "The docs iclude two AmigaGuide documents and a history file.") (prompt "Do you want to install the docs?"))
  1077.  (
  1078.      (set docdest
  1079.          (askdir
  1080.               (prompt "Please select a drawer for the docs.")
  1081.               (help "It doesn't matter where you put the docs, if you manage to refind them...")
  1082.               (default (tackon progdest "Docs"))
  1083.               (newpath)
  1084.          )
  1085.      )
  1086.      (copyfiles
  1087.          (prompt "Copying Docs...")
  1088.          (source "Docs")
  1089.          (pattern "#?_S.#?")
  1090.          (infos)
  1091.          (dest docdest)
  1092.      )
  1093.      (copyfiles
  1094.          (prompt "Copying Docs...")
  1095.          (source "Docs")
  1096.          (pattern "#?_GB.#?")
  1097.          (infos)
  1098.          (dest docdest)
  1099.      )
  1100.  )
  1101.  )
  1102.  
  1103.  (complete 90)
  1104.  
  1105.  (if (askbool (help "DatMon is useful in hex mode of MI, Fineline 11 is used in MTools about requester.") (prompt "Do you want to install the fonts?"))
  1106.  (
  1107.      (set fontdest
  1108.          (askdir
  1109.              (prompt "Please select a drawer for the fonts.")
  1110.              (help "If you didn't 'assign add' another font drawer, you shouldn't tuch this default setting.")
  1111.              (default "Fonts:")
  1112.              (newpath)
  1113.          )
  1114.      )
  1115.      (copyfiles
  1116.          (prompt "Copying fonts...")
  1117.          (source "Fonts")
  1118.          (dest fontdest)
  1119.          (pattern "#?")
  1120.      )
  1121.  )
  1122.  )
  1123.  
  1124.  (complete 99)
  1125.  )
  1126. )
  1127.  
  1128. (if (= locale 6)
  1129.  (
  1130.  (message "\n IMPORTANT NOTE:\n\n"
  1131.           "This programm installs MTool and MI on your Amiga. If you don't understand one of the questions that show up during installation, please select the 'help...' button. You will be instructed then about the next step and what it's good for."
  1132.  )
  1133.  
  1134.  (set progdest
  1135.      (askdir
  1136.          (prompt "Please select a drawer for MTool.")
  1137.          (help "MTool and MI will be copied to this drawer.")
  1138.          (default "SYS:Tools")
  1139.          (newpath)
  1140.      )
  1141.  )
  1142.  
  1143.  (set @default-dest progdest)
  1144.  
  1145.  (copyfiles
  1146.      (prompt "Copying MTool...")
  1147.      (source "MTool")
  1148.      (infos)
  1149.      (dest progdest)
  1150.  )
  1151.  
  1152.  (complete 20)
  1153.  
  1154.  (copyfiles
  1155.      (prompt "Copying MTPrefs...")
  1156.      (source "Prefs/MTool")
  1157.      (infos)
  1158.      (dest "SYS:Prefs")
  1159.  )
  1160.  
  1161.  (complete 30)
  1162.  
  1163.  (copyfiles
  1164.      (prompt "Copying MI...")
  1165.      (source "MI")
  1166.      (infos)
  1167.      (dest progdest)
  1168.  )
  1169.  
  1170.  (complete 45)
  1171.  
  1172.  (if (= (exists "ENVARC:MTool/MTool.Prefs") FALSE )
  1173.  (
  1174.      (makedir "ENVARC:MTool")
  1175.      (makedir "ENV:MTool")
  1176.  
  1177.      (copyfiles
  1178.          (prompt "Copying example prefs file...")
  1179.          (source "Prefs/Env-Archive/MTool/MTool.Prefs")
  1180.          (dest "ENVARC:MTool")
  1181.      )
  1182.      (copyfiles
  1183.          (source "Prefs/Env-Archive/MTool/MTool.Prefs")
  1184.          (dest "ENV:MTool")
  1185.      )
  1186.  )
  1187.  )
  1188.  
  1189.  (complete 60)
  1190.  
  1191.  (if (> ver 37)
  1192.      (if (exists "Locale:Catalogs/italiano")
  1193.      (
  1194.          (if (askbool (help "If you selected italiano as default language and install these files, MTool and MI will show up with a italian user interface.") (prompt "Do you want to install the italian locale files?"))
  1195.          (
  1196.              (copyfiles
  1197.                  (prompt "Installing Italian Catalogs")
  1198.                  (source "Catalogs/italiano")
  1199.                  (pattern "#?")
  1200.                  (dest "Locale:Catalogs/italiano")
  1201.              )
  1202.          )        
  1203.          )
  1204.      )
  1205.      )
  1206.  )
  1207.  
  1208.  (if (askbool (help "The helpfile offers a help function while running MI.") (prompt "Do you want to install the helpfile for MI?"))
  1209.  (
  1210.      (copyfiles
  1211.          (prompt  "Copying helpfile:...")
  1212.          (source  "MI_GB.help")
  1213.          (dest    "ENVARC:")
  1214.          (newname "MI.help")
  1215.      )
  1216.  )
  1217.  )
  1218.  
  1219.  (complete 70)
  1220.  
  1221.  (if (askbool (help "The icons will be used in MTool to create icons for files according to their type. This feature is disabled in the unregistered version.") (prompt "Do you want to install the icons?"))
  1222.  (
  1223.      (set icondest
  1224.          (askdir
  1225.               (prompt "Please select a drawer for the icons.")
  1226.               (help "The example prefs file expects the icons in the default drawer.")
  1227.               (default (tackon progdest "MToolIcons"))
  1228.               (newpath)
  1229.          )
  1230.      )
  1231.  
  1232.      (if (askbool (help "MagicWB is a collection of background patterns and icons, providing a very nice 8-coloured Workbench. You can install icons especially designed for MagicWB.") (prompt "Do you use 'MagicWB'?"))
  1233.      (
  1234.      (copyfiles
  1235.          (prompt "Copying icons...")
  1236.          (source "MToolIcons/MWB")
  1237.          (pattern "(~MT)#?.info")
  1238.          (dest icondest)
  1239.      )
  1240.      (copyfiles
  1241.          (source "MToolIcons/MWB/MTool.info")
  1242.          (dest progdest)
  1243.      )
  1244.      (copyfiles
  1245.          (source "MToolIcons/MWB/MI.info")
  1246.          (dest progdest)
  1247.      )
  1248.      (copyfiles
  1249.          (source "MToolIcons/MWB/MTPrefs.info")
  1250.          (dest "SYS:Prefs")
  1251.          (newname "MTool.info")
  1252.      )
  1253.      )
  1254.      (
  1255.      (copyfiles
  1256.          (prompt "Copying icons...")
  1257.          (source "MToolIcons")
  1258.          (pattern "#?.info")
  1259.          (dest icondest)
  1260.      )
  1261.      )
  1262.      )
  1263.  )
  1264.  )
  1265.  
  1266.  (complete 80)
  1267.  
  1268.  (if (askbool (help "The docs iclude two AmigaGuide documents and a history file.") (prompt "Do you want to install the docs?"))
  1269.  (
  1270.      (set docdest
  1271.          (askdir
  1272.               (prompt "Please select a drawer for the docs.")
  1273.               (help "It doesn't matter where you put the docs, if you manage to refind them...")
  1274.               (default (tackon progdest "Docs"))
  1275.               (newpath)
  1276.          )
  1277.      )
  1278.      (copyfiles
  1279.          (prompt "Copying Docs...")
  1280.          (source "Docs")
  1281.          (pattern "#?_GB.#?")
  1282.          (infos)
  1283.          (dest docdest)
  1284.      )
  1285.      (copyfiles
  1286.          (prompt "Copying Docs...")
  1287.          (source "Docs")
  1288.          (pattern "#?_I.#?")
  1289.          (infos)
  1290.          (dest docdest)
  1291.      )
  1292.  )
  1293.  )
  1294.  
  1295.  (complete 90)
  1296.  
  1297.  (if (askbool (help "DatMon is useful in hex mode of MI, Fineline 11 is used in MTools about requester.") (prompt "Do you want to install the fonts?"))
  1298.  (
  1299.      (set fontdest
  1300.          (askdir
  1301.              (prompt "Please select a drawer for the fonts.")
  1302.              (help "If you didn't 'assign add' another font drawer, you shouldn't tuch this default setting.")
  1303.              (default "Fonts:")
  1304.              (newpath)
  1305.          )
  1306.      )
  1307.      (copyfiles
  1308.          (prompt "Copying fonts...")
  1309.          (source "Fonts")
  1310.          (dest fontdest)
  1311.          (pattern "#?")
  1312.      )
  1313.  )
  1314.  )
  1315.  
  1316.  (complete 99)
  1317.  )
  1318. )
  1319.  
  1320. (exit)
  1321.